unit UfrmRepairBrowers;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WSVoucherBrowse, DBGridEhGrouping, RzCommon, DB, ActnList,
  RzPanel, GridsEh, DBGridEh, RzTabs, RzButton, ExtCtrls, ADODB,WSEdit;

type
  TfrmRepairBrowers = class(TWSVoucherBrowseForm)
    qryRepairList: TADOQuery;
    procedure FormShow(Sender: TObject);
  private
     FCarNO:string;
  public
    property CarNO:string  read FCarNO write FCarNO;
    function CreateEditForm: TWSEditForm; override;
  end;

var
  frmRepairBrowers: TfrmRepairBrowers;

implementation

uses CommonDM,UfrmRepaireEdit;

{$R *.dfm}

{ TfrmRepairBrowers }

function TfrmRepairBrowers.CreateEditForm: TWSEditForm;
begin
   Result:=TfrmRepaireEdit.Create(self);
end;

procedure TfrmRepairBrowers.FormShow(Sender: TObject);
begin
  inherited;
  qryRepairList.Close;
  qryRepairList.Parameters.ParamByName('carno').Value:=FCarNO;
  qryRepairList.Open;
end;

end.
